Option Explicit
Sub P_Sample022()
    Dim myFso As Scripting.FileSystemObject
    Dim myNewName As String
    Set myFso = New Scripting.FileSystemObject
    myNewName = ThisWorkbook.Path & "\Tmp2"	'wns@ƧW
    myFso.CreateFolder myNewName
    Set myFso = Nothing	'
End Sub
